home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ing / mmmaker / funerr.txt next >
Text File  |  1995-10-26  |  479b  |  17 lines
  1.     If colpreferences("ShowError") Then
  2.         MsgBox Error
  3.     ElseIf colpreferences("UseErrBeep") Then
  4.         Beep
  5.     End If
  6.     Dim MyErr As Long
  7.     Dim MyErrName As String
  8.     MyErr = Err.Number
  9.     MyErrName = Err.Description
  10.     clsErrorEngine.ErrorName = MyErrName
  11.     clsErrorEngine.ErrorNumber = MyErr
  12.     clsErrorEngine.ErrorDate = Now
  13.     clsErrorEngine.ErrorProcedure = " Command1_Click  "
  14.     clsErrorEngine.ErrorNotes = " None Available"
  15.     clsErrorEngine.AddError
  16.     'return false 
  17.     !NAME = False